Option Explicit On

Public Enum ErrorsOcurred
    WordNotFound
    ComError
    WordFileExist
End Enum
Public Class clsError
    Inherits Exception

    Public ErrorOccurred As ErrorsOcurred
    Public Sub New(ByVal message As String, ByVal ErrorType As ErrorsOcurred)
        MyBase.New(message)
        ErrorOccurred = ErrorType
    End Sub


End Class
